Developer CD Series 2000 November: Tool Chest/Dev.CD Nov 00 TC Disk 2.toast/pc/tool chest/development kits/hypercard related/xcmds & xfcns/alias xfcn 1.3/aliaslab/cards.xml

Text File | 1993-06-13 | 15.3 KB | 467 lines

card_3726.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>3726</id>
    <filler1>0</filler1>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2576</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3125.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>3</left>
            <top>3</top>
            <right>382</right>
            <bottom>239</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>2</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>387</left>
            <top>218</top>
            <right>414</right>
            <bottom>239</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6720</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New Button</name>
        <script>on mouseUp
go to first card
end mouseUp</script>
    </part>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text>
Form is: put Alias(Command, requiredParameter)

Commands and parameters are as follows:

put Alias("MakeAlias") into thisStackAliasRecord
put Alias("MakeAlias", filePath) into fileAliasRecord
put Alias("ResolveAlias", fileAliasRecord) into fileFSSpec
put Alias("ResolveAliasToPath, fileAliasRecord) into filePath
put Alias("GetAliasInfo", fileAliasRecord) into aliasInfo

"MakeAlias" returns an alias record.

"ResolveAlias" returns the current file location as a FSSpec.  It takes an alias record that has been returned from "MakeAlias" and resolves it into a FSSpec.  The FSSpec is returned as a string.

"ResolveAliasToPath" returns the current file location as a full path.  It takes an alias record that has been returned from "MakeAlias" and resolves it into a full path.

If the alias record points to an unmounted volume, "ResolveAlias" and "ResolveAliasToPath" will mount the volume.

"GetAliasInfo" returns the zone, server, and path for the file in the alias record.  Line 1 is the zone, line 2 is the server, and line 3 is the path.  This is the original location of the file, not necessarily the current location.  Use "ResolveAlias" or "ResolveAliasToPath" to get the current location.

In addition, the XFCN supports the use of "!" for version information and "?" for help as follows:
    put Alias("!") into versionInfo
    put Alias("?") into helpInfo

The following resources are required for XFCN operation:
     type         ID        Name
    XFCN       N/A       Alias
    STR#      N/A    Alias
Resource identification is by Name, ID numbers may be changed.

The following error messages may be returned from the XFCN:
    Err 00 Missing STR# for Alias
    Err 01 Missing command
    Err 02 Command is not recognized
    Err 03 Missing second parameter
    Err 04 This operating system does not support the Alias Manager
    Err 05 EvalExpr failed
    Err 06 FSMakeFSSpec failed
    Err 07 NewAlias failed
    Err 08 ResolveAlias failed
    Err 09 ResolveAliasFile failed
    Err 10 GetAliasInfo Zone failed
    Err 11 GetAliasInfo Server failed
    Err 12 GetAliasInfo Volume failed
    Err 13 GetAliasInfo Parent failed

This XFCN should run under System 7.0 and pre-7.0.  It's not very useful under pre-7.0, but it will run.
This XFCN should also run under HyperCard 2.0 and pre-2.0.
</text>
    </content>
    <name>Release Notes</name>
    <script></script>
</card>


card_2969.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>2969</id>
    <filler1>0</filler1>
    <bitmap>BMAP_2170.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2576</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3125.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>138</left>
            <top>34</top>
            <right>413</right>
            <bottom>169</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>AliasRecord</name>
        <script></script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>4</left>
            <top>82</top>
            <right>134</right>
            <bottom>104</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Make Any Alias</name>
        <script>on mouseUp
answer file "Alias for which file?"
put it into myFile
put myFile into cd fld "pathInfo"
if it is not empty then
put Alias("MakeAlias", myFile) into cd fld "AliasRecord"
end if
put empty into cd fld "FileSpecInfo"
put empty into cd fld "AliasInfo"
end mouseUp</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>4</left>
            <top>136</top>
            <right>134</right>
            <bottom>158</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Resolve To FSSpec</name>
        <script>on mouseUp
put empty into cd fld "FileSpecInfo" -- flash
put Alias("ResolveAlias", cd fld "AliasRecord")¬
into cd fld "FileSpecInfo"
end mouseUp</script>
    </part>
    <part>
        <id>7</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>138</left>
            <top>213</top>
            <right>412</right>
            <bottom>228</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>FileSpecInfo</name>
        <script></script>
    </part>
    <part>
        <id>9</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>4</left>
            <top>54</top>
            <right>134</right>
            <bottom>76</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Make Stack's Alias</name>
        <script>on mouseUp
put the long name of this stack into cd fld "pathInfo"
put Alias("MakeAlias") into cd fld "AliasRecord"
put empty into cd fld "FileSpecInfo"
put empty into cd fld "AliasInfo"
end mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>138</left>
            <top>3</top>
            <right>412</right>
            <bottom>31</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>PathInfo</name>
        <script></script>
    </part>
    <part>
        <id>12</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>138</left>
            <top>170</top>
            <right>413</right>
            <bottom>210</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>AliasInfo</name>
        <script></script>
    </part>
    <part>
        <id>13</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>4</left>
            <top>109</top>
            <right>134</right>
            <bottom>131</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Get Alias Info</name>
        <script>on mouseUp
put Alias("GetAliasInfo",  cd fld "AliasRecord")¬
into cd fld "AliasInfo"
end mouseUp</script>
    </part>
    <part>
        <id>14</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>2</left>
            <top>221</top>
            <right>78</right>
            <bottom>238</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <name>Who Am I?</name>
        <script>on mouseUp
put Alias("!") into message box
end mouseUp</script>
    </part>
    <part>
        <id>15</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>2</left>
            <top>201</top>
            <right>78</right>
            <bottom>218</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <name>What Am I?</name>
        <script>on mouseUp
go to card "Release Notes"
end mouseUp</script>
    </part>
    <part>
        <id>16</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>4</left>
            <top>164</top>
            <right>134</right>
            <bottom>186</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Resolve To Path</name>
        <script>on mouseUp
put empty into cd fld "AliasInfo" -- flash
put Alias("ResolveAliasToPath", cd fld "AliasRecord")¬
into cd fld "AliasInfo"
end mouseUp</script>
    </part>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text>0000000000E2000200000646756E50414B000000000000000000000000000000000000000000A70CA13E424400050000063E08616C6961734C6162000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000069DA34CBB7E5354414B57494C44FFFFFFFF0000000200000000000000000000000000000005416C69617300000100080000063E0000063D0002001B46756E50414B3A58434D44733A416C6961733A616C6961734C6162000006000E2E52656D44726976657220563232FFFF0000</text>
    </content>
    <content>
        <layer>card</layer>
        <id>11</id>
        <text>stack "FunPAK:XCMDs:Alias:aliasLab"</text>
    </content>
    <content>
        <layer>card</layer>
        <id>7</id>
        <text>-6,1598,aliasLab</text>
    </content>
    <content>
        <layer>card</layer>
        <id>12</id>
        <text>FunPAK:XCMDs:Alias:aliasLab</text>
    </content>
    <name></name>
    <script></script>
</card>